home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Mac Power 1997 November
/
MACPOWER-1997-11.ISO.7z
/
MACPOWER-1997-11.ISO
/
AMUG
/
MUSIC
/
bol-processor-271-data.sit
/
bol-processor-271-data
/
BP2 examples
/
BP2 data
/
-gr.tryGOTO
< prev
next >
Wrap
Text File
|
1995-05-07
|
557b
|
31 lines
V.2.5
Date: Sat, May 6, 1995 -- 23:25
-ho.abc
-se.tryGOTO
[This grammar generates a string containingノ]
[ノ not more than six ヤcユ and an equalノ]
[ノ number of ヤaユ and ヤbユ.]
ORD
GRAM#1[1] S --> X S _repeat(K1=12) _goto(1,2)
GRAM#1[2] S --> lambda _goto(2,0)
----------
RND
_print
GRAM#2[1] <5-1> X --> C
GRAM#2[2] <1> X --> C _goto(3,1)
----------
RND
GRAM#3[1] X --> A _failed(4,0) _goto(3,2)
GRAM#3[2] X --> B _failed(3,3) _goto(3,1)
GRAM#3[3] _print ? --> ? B _goto(4,0) _print
----------
SUB
GRAM#4[1] A --> a
GRAM#4[2] B --> b
GRAM#4[3] C --> c